home *** CD-ROM | disk | FTP | other *** search
/ Univers Mac Interactif 42 / Univers Mac Interactif - Issue 42.iso / >interactif / Démos Voyager / STRAUSS.DIR / 00056_Script_56 < prev    next >
Text File  |  1994-10-13  |  697b  |  38 lines
  1. on myWait theTicks
  2.   set myTicks = theTicks + the ticks
  3.   repeat while (myTicks >= the ticks)
  4.   end repeat 
  5. end
  6.  
  7.  
  8. on enterframe
  9.   cursor 200
  10. end
  11. on waitQT chan
  12.   if the movieRate of sprite chan = 1 then go to the frame
  13. end
  14.  
  15. on waitSound chan
  16.   if  soundbusy(chan) = 1 then go to the frame
  17. end 
  18.  
  19. on KeyDown
  20.   global autoplaying
  21.   put 0 into autoplaying
  22.   sound stop 1
  23.   sound stop 2
  24.   unloadcast
  25.   play done
  26. end
  27.  
  28. on waiting theTicks
  29.   --must be preceded by startTimer
  30.   if theTicks >= the timer then go the frame
  31. end
  32.  
  33. --on setPurge thePurge
  34. --  repeat with x=1 to the number of castMembers
  35. --    set the purgePriority of cast x to thePurge
  36. --  end repeat
  37. --end
  38.